type attack_type = Fire | Normal | Water | Thunder

type pokemon = {name: string; hp: int; attack_type: attack_type}

let pikaq = {name = "pikaqiu"; hp = 100; attack_type = Thunder}
let leiq = {pikaq with name = "leiqiu"}

let print_pokemon pkm =
  print_string ("name: " ^ pkm.name ^ ", hp: ");
  print_int pkm.hp;
  print_newline ()

let print_pokemon_ = function
    {name; hp; attack_type = t} -> print_endline ("pokemon name: " ^ name);;

print_pokemon_ pikaq
